﻿Public Class Empleado
    Inherits Persona
    'TODO HACER PROPIEDADES

#Region "Declaraciones"
    Private cFechaAlta As Date
    Private cCargo As Cargo
#End Region

#Region "Constructores"
    Public Sub New()
        MyBase.New(-1, "", "", -1, Nothing, Nothing, "", "", "")
        cFechaAlta = Nothing
        cCargo = Nothing
    End Sub

    Public Sub New(ByVal pId As Integer, ByVal pNombre As String, ByVal pApellido As String, ByVal pNroDocumento As Integer, ByRef pTipoDocumento As TipoDocumento, ByVal pFecha As DateTime, ByVal pSexo As String, ByVal pTelefono As String, ByVal pEmail As String, ByVal pFechaAlta As Date, ByRef pCargo As Cargo)
        MyBase.New(pId, pNombre, pApellido, pNroDocumento, pTipoDocumento, pFecha, pSexo, pTelefono, pEmail)
        cFechaAlta = pFechaAlta
        cCargo = pCargo
    End Sub
#End Region

#Region "Propiedades"
    Public Property FechaAlta()
        Get
            Return cFechaAlta
        End Get
        Set(ByVal value)
            cFechaAlta = value
        End Set
    End Property

    Public Property Cargo()
        Get
            Return cCargo
        End Get
        Set(ByVal value)
            cCargo = value
        End Set
    End Property

#End Region
End Class

